home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PREVIEW.DIR / 00164_Script_164 < prev    next >
Text File  |  1997-07-22  |  331b  |  12 lines
  1. on exitFrame
  2.   puppetsprite 1, 1
  3.   set factor = 3
  4.   set theEnd = the width of sprite 1 + factor
  5.   repeat with x = 1 to theEnd
  6.     set the width of sprite 1 to the width of sprite 1 - factor
  7.     set the height of sprite 1 to the height of sprite 1 - factor
  8.     updatestage
  9.   end repeat
  10.   puppetsprite 1, 0
  11.   go next  
  12. end